home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 143
/
143side4.d64
/
u.fort apache
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-30
|
2KB
|
45 lines
10 poke53280,0:poke53281,0:printchr$(14)
20 print"[147][158] [211]hootout [193]t [198]ort [193]pache":print
30 print"[212]his program will modify your copy"
40 print"of '[198]ort [193]pache' to give you [213][206][204][201][205][201][212][197][196]"
50 print"[204][201][214][197][211] and [200][207][206][207][210][211]. ([195])onvert will give"
60 print"you [213]nlimited [204]ives and [200]onors, and"
70 print"([210])estore will return it to [206]ormal."
80 print"[201]t's best to use a [195][207][208][217] rather than"
90 print"using your original [204][207][193][196][211][212][193][210] disk!"
100 print"[205]ake sure that the [215]rite-[208]rotect tab"
110 print"is not covered on the disk!"
130 print"[212]o make these changes, [201]nsert [204]oadstar"
140 print"[201]ssue #130 [211]ide 3 into [196]rive #8, then"
150 print"[211]elect ([195])onvert [207]r ([210])estore."
152 print"[193]fter selecting, [196]o [206][207][212] touch the"
154 print"keyboard or open the disk drive door"
156 print"until the white [195]ursor appears!!!!!!"
157 print" [211]elect ([195]) [207]r ([210]) [206]ow"
160 geta$:ifa$=""then160
165 ifa$="c"then180
170 ifa$="r"then400
175 goto160
180 q$=chr$(34):f$="fort apache"
190 print"[147][144]load"q$f$q$",8"
200 print"510 if(c2<>9)and(f2=1)thenic=ic-0"
210 print"520 if((c1=0)or(c1=7)or(c1=8))and(f1=1)thenic=ic-0:ific<0thenic=0"
220 print"940 poke53280,0:lf=lf-0"
230 print"945 if(j=0)and(c1=1)thenj=1:poke53250,peek(53250)+14:goto920"
250 print"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
260 print"poke646,1
270 [153]""
280 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
290 [162]:[128]
400 q$[178][199](34):f$[178]"fort apache"
410 [153]"loadstopload"q$f$q$",8"
420 [153]"510 if(c2<>9)and(f2=1)thenic=ic-1"
430 [153]"520 if((c1=0)or(c1=7)or(c1=8))and(f1=1)thenic=ic-1:ific<0thenic=0"
440 [153]"940 poke53280,0:lf=lf-1"
450 [153]"945 if(j=0)and(c1=1)thenj=1:poke53250,peek(53250)+14:goto920"
460 [153]"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
470 [153]"poke646,1
480 print""
490 fori=631to640:pokei,13:next:poke198,10
500 new:end